Softdisk for Windows 42/Softdisk for Windows 42.iso/QUARRY/QUARRY.EXE/QUARRY.dxr/00242_GETCODE1.ls

Text File | 1998-01-01 | 1.5 KB | 55 lines

on GETCODE1
  global CODENUM, ALPH, ALP, LALP, REGNAME, REGCOUNT, REGNAME1, SS, SN, CODENAME1, WASRIGHT
  set CODENUM to EMPTY
  set ALP to the key
  if charToNum(ALP) = 8 then
    put " " into field "CODETEXT"
    dontPassEvent()
    updateStage()
    exit
  end if
  if ("123456789ABCDEFG" & RETURN contains the key) = 0 then
    dontPassEvent()
  end if
  if ("123456789ABCDEFG" & RETURN contains the key) = 0 then
    exit
  end if
  if "123456789ABCDEFG" & RETURN contains the key then
    if the key = RETURN then
      dontPassEvent()
    end if
    if the key = RETURN then
      dontPassEvent()
      set REGCOUNT to REGCOUNT + 1
      set CODENUM to the text of field "CODETEXT"
      set CODENAME1 to EMPTY
      repeat with N = 1 to length(CODENUM)
        set SS to char N of CODENUM
        set SN to charToNum(SS)
        set SN to SN + 99
        set SS to numToChar(SN)
        set CODENAME1 to CODENAME1 & SS
      end repeat
      set WASRIGHT to 0
      put CODENAME1
      if CODENAME1 contains "•œ˜˜š”›™" then
        set WASRIGHT to 1
        set the text of field "CODETEXT" to "UPGRADED !!!"
        updateStage()
        beep()
        WRITEUPG()
        checkupg()
        delay(120)
      end if
      if WASRIGHT = 0 then
        alert("YOU HAVE ENTERED AN INCORRECT UPGRADE CODE!   PLEASE REFER TO THE   DOCUMENTATION WHICH WAS SENT WITH YOUR SOFTWARE.")
      end if
      set the keyDownScript to "REGSCRIPT"
      if REGCOUNT >= 3 then
        set the keyDownScript to EMPTY
      end if
      play done
    end if
  end if
end